home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / telecomm / storm100.lzh / SOUNDS.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-11-04  |  318 b   |  18 lines
  1. READ n
  2. WHILE n
  3. a$ = ""
  4. FOR x = 1 TO n:READ v:a$ = a$ + CHR$(v):NEXT x
  5. PLAY a$
  6. PAUSE 3
  7. READ n
  8. WEND
  9. END
  10. REM gunshot
  11. DATA 16,6,15,7,7,8,16,9,16,10,16,12,16,13,0,255,0
  12. REM explosion
  13. DATA 16,6,0,7,7,8,16,9,16,10,16,12,56,13,0,255,0
  14. REM whistling bomb
  15. DATA 14,7,62,8,15,128,48,129,0,1,254,8,0,255,0
  16. DATA 0
  17.  
  18.